Loading
Scriptbox
 VBScript Links 
 About VBscript 
 JavaScript Links 
 About JavaScript 
 Powershell Links 
 PSCRIPT the Script Launcher 
 PowerShell Shortcut Keys 
 About Powershell 
     VBScript
    JavaScript
    Powershell
Disclaimer
Contact
Latest 10 Scripts
Script search
  :: { Category } :: 0-9ABCDEFGHIJKLMNOPQRSTUVWXYZ
         

Search Options:  Determine  the  Size  of  All  the  Items  Currently  in  the  Recycle  Bin  

 Content of Determine the Size of All the Items Currently in the Recycle Bin.vbs
MD5 Hash: 29910D7C0E8AE60879B47D3A16B9B60F
Const RECYCLE_BIN = &Ha&
Const FILE_SIZE = 3

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(RECYCLE_BIN)

Set colItems = objFolder.Items

For Each objItem in colItems
strSize = objFolder.GetDetailsOf(objItem, FILE_SIZE)
arrSize = Split(strSize, " ")
intSize = intSize + CLng(arrSize(0))
Next

Wscript.Echo intSize & " KB"



   © 2008 - 2013 Boris Toll      :: Scripts available: 6.481 ::      :: scriptbox.toll.at ::      :: powered by www.toll.at ::
  Google Entries:n/a
  Yahoo Backlinks:n/a
  Live Backlinks:n/a
  del.icio.us Bookmarks:n/a
  Technorati Links:n/a